home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / ftlogo.zip / LIGHT.LF < prev    next >
Text File  |  1989-09-25  |  917b  |  59 lines
  1. PPROP "FTLOGO "BURY "TRUE
  2. PPROP ".SYSTEM "BURY "TRUE
  3. TO GREENBLINKPHASE :TIME :COUNT
  4. LOCAL "SMALLTIME
  5. MAKE "SMALLTIME :TIME / (2 * :COUNT)
  6. REPEAT :COUNT [MOTOR 3 0 RUNSECONDS :SMALLTIME MOTOR 3 1 RUNSECONDS :SMALLTIME] MOTOR 3 0
  7. END
  8.  
  9. TO GREENPHASE :TIME
  10. MOTOR 3 1
  11. RUNSECONDS :TIME
  12. MOTOR 3 0
  13. END
  14.  
  15. TO LIGHTRUN 
  16. REDPHASE 10
  17. REDYELLOWPHASE 4
  18. GREENPHASE 10
  19. YELLOWPHASE 4
  20. END
  21.  
  22. TO RUNSECONDS :TIME
  23. REPEAT (300 * :TIME) [REFRESH]
  24. END
  25.  
  26. TO YELLOWPHASE :TIME
  27. MOTOR 2 1
  28. RUNSECONDS :TIME
  29. MOTOR 2 0
  30. END
  31.  
  32. TO GREENPHASEWITHBUTTON :TIME
  33. MOTOR 3 1
  34. REPEAT (:TIME * 5) [RUNSECONDS 0.2 IF SWITCH 1 [MOTOR 3 0 STOP]]
  35. END
  36.  
  37. TO REDYELLOWPHASE :TIME
  38. MOTOR 1 1
  39. MOTOR 2 1
  40. RUNSECONDS :TIME
  41. MOTOR 1 0
  42. MOTOR 2 0
  43. END
  44.  
  45. TO REDPHASE :TIME
  46. MOTOR 1 1
  47. RUNSECONDS :TIME
  48. MOTOR 1 0
  49. END
  50.  
  51. TO LIGHTRUNWITHBUTTON 
  52. REDPHASE 10
  53. REDYELLOWPHASE 4
  54. GREENPHASEWITHBUTTON 10
  55. YELLOWPHASE 4
  56. END
  57.  
  58. MAKE "BASE 30000
  59.